home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / a404fm10 / a404fm10.bas next >
BASIC Source File  |  1993-07-08  |  6KB  |  244 lines
  1. 1 '     save "A404FM10.bas",a
  2. 10 '     edit　　　　　
  3. 20 '
  4. 30 '
  5. 40 '
  6. 50 '
  7. 60 '
  8. 70 '
  9. 80 '
  10. 90 '
  11. 100 GOSUB *INIT
  12. 110 GOSUB *MAINMENU
  13. 120 GOSUB *マウス
  14. 130 CM1=IN:WAIT 50
  15. 140  ON IN GOSUB *用紙,*漢字,*ANK,*排紙,*LIPS,*終了
  16. 150 GOSUB *マウス
  17. 160 CM2=IN:WAIT 50
  18. 170 GOSUB *実行
  19. 180 GOSUB *マウス
  20. 190 WAIT 50
  21. 200 ON IN GOSUB *結果,*中止
  22. 999 END
  23. 1000 *INIT
  24. 1010 CONSOLE ,,0:WIDTH 80,25
  25. 1020 SCREEN@ 0 : MOUSE 0: MOUSE 1,0,0,1
  26. 1030 RETURN
  27. 1040 *TITLE
  28. 1050 TI$="LBP-A404 (FM) プリンタ設定プログラム　F-BASIC386版 L.10  NIF-ID:HAD01045(SAINT) "
  29. 1060 CLS 0 : LOCATE 0,0 : COLOR 12
  30. 1070 PRINT TI$;
  31. 1080 COLOR 7
  32. 1090 RETURN
  33. 1100 *MAINMENU
  34. 1105 AN=6
  35. 1110 GOSUB *TITLE
  36. 1120 LOCATE 5,2:COLOR 6
  37. 1130 TI$="［メインメニュー］"
  38. 1140 PRINT TI$;
  39. 1150 LOCATE 10,5:COLOR 6
  40. 1160 TI$="用紙のサイズ・向き"
  41. 1170 PRINT TI$;
  42. 1180 LOCATE 35,5:COLOR 6
  43. 1190 TI$="  漢字のフォント  "
  44. 1200 PRINT TI$;
  45. 1210 LOCATE 60,5:COLOR 6
  46. 1220 TI$="ANK文字のフォント "
  47. 1230 PRINT TI$;
  48. 1240 LOCATE 10,15:COLOR 6
  49. 1250 TI$="　　用紙の排出　　"
  50. 1260 PRINT TI$;
  51. 1270 LOCATE 35,15:COLOR 6
  52. 1280 TI$="LIPS/FMPR切り替え "
  53. 1290 PRINT TI$;
  54. 1300 LOCATE 60,15:COLOR 6
  55. 1310 TI$="      終了        "
  56. 1320 PRINT TI$;
  57. 1330 LOAD@ "IM001.TIF",(120,140)
  58. 1340 LOAD@ "IM002.TIF",(320,140)
  59. 1350 LOAD@ "IM003.TIF",(520,140)
  60. 1360 LOAD@ "IM004.TIF",(120,340)
  61. 1370 LOAD@ "IM005.TIF",(320,340)
  62. 1380 LOAD@ "IM006.TIF",(520,340)
  63. 1400 RETURN
  64. 2100 *用紙
  65. 2110 AN=6
  66. 2120 GOSUB *TITLE
  67. 2130 LOCATE 5,2:COLOR 6
  68. 2140 TI$="［用紙のサイズ・向き］"
  69. 2150 PRINT TI$;
  70. 2160 LOCATE 10,5:COLOR 6
  71. 2170 TI$="　実寸　縦置き    "
  72. 2180 PRINT TI$;
  73. 2190 LOCATE 35,5:COLOR 6
  74. 2200 TI$="  実寸　横置き　  "
  75. 2210 PRINT TI$;
  76. 2220 LOCATE 60,5:COLOR 6
  77. 2230 TI$=" SF10→A4 縦置き  "
  78. 2240 PRINT TI$;
  79. 2250 LOCATE 10,15:COLOR 6
  80. 2260 TI$=" SF15→A4 横置き　"
  81. 2270 PRINT TI$;
  82. 2280 LOCATE 35,15:COLOR 6
  83. 2290 TI$=" B4 → A4 縦置き  "
  84. 2300 PRINT TI$;
  85. 2310 LOCATE 60,15:COLOR 6
  86. 2320 TI$=" B4 → A4 横置き  "
  87. 2330 PRINT TI$;
  88. 2340 LOAD@ "IM011.TIF",(120,140)
  89. 2350 LOAD@ "IM012.TIF",(320,140)
  90. 2360 LOAD@ "IM013.TIF",(520,140)
  91. 2370 LOAD@ "IM014.TIF",(120,340)
  92. 2380 LOAD@ "IM015.TIF",(320,340)
  93. 2390 LOAD@ "IM016.TIF",(520,340)
  94. 2400 RETURN
  95. 3100 *漢字
  96. 3110 AN=2
  97. 3120 GOSUB *TITLE
  98. 3130 LOCATE 5,2:COLOR 6
  99. 3140 TI$="［漢字のフォント］    "
  100. 3150 PRINT TI$;
  101. 3160 LOCATE 10,5:COLOR 6
  102. 3170 TI$="　　　明朝体　　　"
  103. 3180 PRINT TI$;
  104. 3190 LOCATE 35,5:COLOR 6
  105. 3200 TI$="  ゴシック体　  "
  106. 3210 PRINT TI$;
  107. 3220 LOAD@ "IM021.TIF",(120,140)
  108. 3230 LOAD@ "IM022.TIF",(320,140)
  109. 3240 RETURN
  110. 4100 *ANK
  111. 4110 AN=5
  112. 4120 GOSUB *TITLE
  113. 4130 LOCATE 5,2:COLOR 6
  114. 4140 TI$="［ANK文字のフォント］"
  115. 4150 PRINT TI$;
  116. 4160 LOCATE 10,5:COLOR 6
  117. 4170 TI$="　　標準仕様　    "
  118. 4180 PRINT TI$;
  119. 4190 LOCATE 35,5:COLOR 6
  120. 4200 TI$="  OCR_A,明朝10CPI "
  121. 4210 PRINT TI$;
  122. 4220 LOCATE 60,5:COLOR 6
  123. 4230 TI$=" OCR_B,明朝10CPI  "
  124. 4240 PRINT TI$;
  125. 4250 LOCATE 10,15:COLOR 6
  126. 4260 TI$="   OCR_A,OCR_ｶﾅ 　"
  127. 4270 PRINT TI$;
  128. 4280 LOCATE 35,15:COLOR 6
  129. 4290 TI$="   OCR_B,OCR_ｶﾅ   "
  130. 4300 PRINT TI$;
  131. 4310 LOAD@ "IM031.TIF",(120,140)
  132. 4320 LOAD@ "IM032.TIF",(320,140)
  133. 4330 LOAD@ "IM033.TIF",(520,140)
  134. 4340 LOAD@ "IM034.TIF",(120,340)
  135. 4350 LOAD@ "IM035.TIF",(320,340)
  136. 4360 RETURN
  137. 5100 *排紙
  138. 5110 AN=2
  139. 5120 GOSUB *TITLE
  140. 5130 LOCATE 5,2:COLOR 6
  141. 5140 TI$="［用紙の排出］    "
  142. 5150 PRINT TI$;
  143. 5160 LOCATE 10,5:COLOR 6
  144. 5170 TI$="　用紙を排出する　"
  145. 5180 PRINT TI$;
  146. 5190 LOAD@ "IM004.TIF",(120,140)
  147. 5220 RETURN
  148. 6100 *LIPS
  149. 6110 AN=2
  150. 6120 GOSUB *TITLE
  151. 6130 LOCATE 5,2:COLOR 6
  152. 6140 TI$="［LIPS/FMPRﾓｰﾄﾞ切り替え］"
  153. 6150 PRINT TI$;
  154. 6160 LOCATE 10,5:COLOR 6
  155. 6170 TI$=" ＦＭＰＲモード "
  156. 6180 PRINT TI$;
  157. 6190 LOCATE 35,5:COLOR 6
  158. 6200 TI$=" ＬＩＰＳモード "
  159. 6210 PRINT TI$;
  160. 6220 LOAD@ "IM041.TIF",(120,140)
  161. 6230 LOAD@ "IM042.TIF",(320,140)
  162. 6240 RETURN
  163. 7100 *実行
  164. 7110 AN=2
  165. 7120 GOSUB *TITLE
  166. 7130 LOCATE 5,2:COLOR 6
  167. 7140 TI$="［確認］"
  168. 7150 PRINT TI$;
  169. 7160 LOCATE 10,5:COLOR 6
  170. 7170 TI$=" 　実行する　　 "
  171. 7180 PRINT TI$;
  172. 7190 LOCATE 35,5:COLOR 6
  173. 7200 TI$=" 　中止する　　 "
  174. 7210 PRINT TI$;
  175. 7220 LOAD@ "IM051.TIF",(120,140)
  176. 7230 LOAD@ "IM052.TIF",(320,140)
  177. 7240 RETURN
  178. 8100 *中止
  179. 8110 GOSUB *TITLE
  180. 8120 LOCATE 5,2:COLOR 6
  181. 8130 TI$="［中止］"
  182. 8140 PRINT TI$;
  183. 8150 LOCATE 10,5:COLOR 6
  184. 8160 TI$="設定を中止して、メインメニューへ戻ります(;_;)"
  185. 8170 PRINT TI$;
  186. 8180 WAIT 200
  187. 8190 RETURN 110
  188. 9100 *結果
  189. 9105 GOSUB *TITLE
  190. 9110 ON ERROR GOTO *P_ERR
  191. 9120 IF (CM1=1) * (CM2=1) THEN LPRINT CHR$(&H1B)+"?f1";
  192. 9130 IF (CM1=1) * (CM2=2) THEN LPRINT CHR$(&H1B)+"?f2";
  193. 9140 IF (CM1=1) * (CM2=3) THEN LPRINT CHR$(&H1B)+"?f3";
  194. 9150 IF (CM1=1) * (CM2=4) THEN LPRINT CHR$(&H1B)+"?f4";
  195. 9160 IF (CM1=1) * (CM2=5) THEN LPRINT CHR$(&H1B)+"?f6";
  196. 9170 IF (CM1=1) * (CM2=6) THEN LPRINT CHR$(&H1B)+"?f7";
  197. 9180 IF (CM1=2) * (CM2=1) THEN LPRINT CHR$(&H1B)+"?T0";
  198. 9190 IF (CM1=2) * (CM2=2) THEN LPRINT CHR$(&H1B)+"?T1";
  199. 9200 IF (CM1=3) * (CM2=1) THEN LPRINT CHR$(&H1B)+"?O0";
  200. 9210 IF (CM1=3) * (CM2=2) THEN LPRINT CHR$(&H1B)+"?O1";
  201. 9220 IF (CM1=3) * (CM2=3) THEN LPRINT CHR$(&H1B)+"?O2";
  202. 9230 IF (CM1=3) * (CM2=4) THEN LPRINT CHR$(&H1B)+"?O3";
  203. 9240 IF (CM1=3) * (CM2=5) THEN LPRINT CHR$(&H1B)+"?O4";
  204. 9250 IF (CM1=4) * (CM2=1) THEN LPRINT CHR$(&H0C);
  205. 9260 IF (CM1=5) * (CM2=1) THEN LPRINT CHR$(&H1B)+"?f6";
  206. 9270 IF (CM1=5) * (CM2=2) THEN LPRINT CHR$(&H1B)+"?f7";
  207. 9280 LOCATE 5,2:COLOR 6
  208. 9290 TI$="［実行］"
  209. 9300 PRINT TI$;
  210. 9310 LOCATE 10,5:COLOR 6
  211. 9320 TI$="プリンタ設定を実行しました(^_^)"
  212. 9330 PRINT TI$;
  213. 9340 WAIT 200
  214. 9350 RETURN 110
  215. 10100 *P_ERR
  216. 10110 GOSUB *TITLE
  217. 10120 LOCATE 5,2:COLOR 6
  218. 10130 TI$="［エラー］"
  219. 10140 PRINT TI$;
  220. 10150 LOCATE 10,5:COLOR 6
  221. 10160 TI$="プリンタエラーです(;_;) ON LINEになってますか(･_･?)"
  222. 10170 PRINT TI$;
  223. 10180 WAIT 200
  224. 10190 RESUME 110
  225. 11000 *マウス
  226. 11010 MX=MOUSE(0):MY=MOUSE(1)
  227. 11020 IN=1:MMX=120:MMY=140:GOSUB *M_CHECK
  228. 11030 IN=2:MMX=320:MMY=140:GOSUB *M_CHECK
  229. 11040 IN=3:MMX=520:MMY=140:GOSUB *M_CHECK
  230. 11050 IN=4:MMX=120:MMY=340:GOSUB *M_CHECK
  231. 11060 IN=5:MMX=320:MMY=340:GOSUB *M_CHECK
  232. 11070 IN=6:MMX=520:MMY=340:GOSUB *M_CHECK
  233. 11080 GOTO 11010
  234. 11100 *M_CHECK
  235. 11110 M_ON=0
  236. 11120 IF SGN((MX-MMX)*(MMX+64-MX))+SGN((MMY-MY)*(MY-MMY-64))>0 THEN M_ON=1
  237. 11125 IF (M_ON=1) * (MOUSE(2,0)=-1) THEN RETURN *M_RET
  238. 11130 IF AN=IN THEN RETURN *マウス
  239. 11140 RETURN
  240. 11200 *M_RET
  241. 11210 RETURN
  242. 12000 *終了
  243. 12010 END
  244.